'ProgramMode:RUN
"CSV File Name"?->Str 1

"Load the CSV File"
"SMEM:Press[1]"
"SD  :Press[2]"

While 1
Getkey->A
If A=62
Then "SMEM:\\"+Str 1->Str 2
Break
Else If A=22
Then "SD:\\"+Str 1->Str 2
Break
IfEnd
IfEnd
WhileEnd

ClrText
"Now Loading..."
OpenCSV Str 2+".CSV"

ClrList

0->N
While 1
LoadNextCell->List 26
If List 26[1]=-1
Then Break
IfEnd

If List 26[3]=1
Then While 1

GetCellString->Str 1

If StrSrc(Str 1,"CA")=0
Then Break
IfEnd

N+1->N
1->M
While M<=4
LoadNextCell
GetCellValue->List M[N]
M+1->M
WhileEnd

WhileEnd
IfEnd
WhileEnd

CloseCSV

ClrText
"Complete_!_"
"Press EXE key"